home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / sf40_a.arc / NUMTEST.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-12-09  |  2.2 KB  |  70 lines
  1. 10   KEY OFF:CLS
  2. 11   SCREEN 1
  3. 12  CLS:A =0:FOR T=0 TO 9 :WR$(T)="":NEXT
  4. 13   COLOR 1,7
  5. 14  FOR T = 0 TO 9
  6. 15  RANDOMIZE TIMER:L(T)=INT(RND*10)+1
  7. 16  TR=0
  8. 20  ON L(T) GOSUB 135,190,240,280,320,360,400,440,480,520
  9. 21  LOCATE 22,20:PRINT"PRESS THE NUMBER        <ESC> FOR MENU"
  10. 25  K3$=INKEY$:IF K3$="" THEN 25
  11. 26  IF ASC(K3$)=27 THEN CHAIN "TEST1",,ALL
  12. 28  G(T)=ASC(K3$)-47:IF G(T)>10 OR G(T)<0 THEN 25
  13. 30  IF L(T)=G(T) THEN A= A +1:LOCATE 1,25:PRINT"CORRECT!":ON XX GOSUB 6050:FOR X= 0 TO 2000:NEXT:GOTO 50
  14. 35  TR=TR+1:IF TR=1 THEN LOCATE 3,10: PRINT"TRY AGAIN.":GOTO 25
  15. 40  LOCATE 5,25:PRINT"NO, IT'S "CHR$(L(T)+47):ON XX GOSUB 6080:GOSUB 7000:FOR X =1 TO 2000:NEXT
  16. 50  NEXT
  17. 60  CLS:PRINT TAB(10)"YOUR SCORE = "A " OUT OF 10.":IF A <>10 THEN PRINT:PRINT TAB(10)"MISSED WERE:"
  18. 61  PRINT
  19. 65  FOR I=0 TO 9:PRINT TAB(10) WR$(I):NEXT
  20. 66  PRINT
  21. 70  LOCATE 16,10:INPUT "PLAY AGAIN (Y/N)";AN$
  22. 80  IF AN$="Y" THEN 12
  23. 90  IF AN$="N" THEN CHAIN "TEST1",,ALL
  24. 100  GOTO 70
  25. 135  CLS:DRAW "S14"
  26. 170  N0$="U3H3U6E2R2F2D1G1H1F1E1U1H2U1E1R1F2D1G1E1U1H2E1R1F3D2G1L1H1F1R1E1U2H1F0R1F2D1 D2L2U1H1G1L1G1D2r1f1r1e1u2r1f1d3g3d3"
  27. 180  DRAW "C3":DRAW N0$
  28. 181  RETURN
  29. 190  CLS:DRAW "S14"
  30. 210  N1$="U2  H3U5r2f2g1l1h1f1r1e1h2u2r2f2g1l1h1f1r1e1h2 u1e1r1f2d1g1l1h1f1r1e1u1u7e1r1f1               d7F2  l3g1d1f1r2l2h1u1e1r4f1d5g2d2
  31. 220  DRAW "C3":DRAW N1$
  32. 230  RETURN
  33. 240  CLS:DRAW "S14"
  34. 250   N2$="U2  H3U5r2f2g1l1h1f1r1e1h2u2r2f2g1l1h1f1r1e1 h3H5U1E1R1F6E6R1F1D1G5D1    F2  l4g1d1f1r2l2h1u1e1r5f1d3g3d3
  35. 260  DRAW "C3":DRAW N2$
  36. 270  RETURN
  37. 280  CLS:DRAW "S14"
  38. 290   N3$="U3  H3U5r2f2g1l1h1f1r1e1h2u2r2f2g1l1h1f1r1e1 h3H5U1E1R1F6r1E6R1F1D1G5D2    F3R2E1R3D1G4L2D1G2D2
  39. 300  DRAW "C3":DRAW N3$
  40. 310  RETURN
  41. 320  CLS:DRAW "S14"
  42. 330  N4$="U2H2U3 h3u2e1r1d1f3u1h2u4e1r1f1d2f2U9E1R1F1D7f1e1U8E1R1F1D11f2L7F2R1L1H2R7D4G3D3
  43. 340  DRAW "C3":DRAW N4$
  44. 350  RETURN
  45. 360  CLS:DRAW "S14"
  46. 370  N5$="U2H2U3 h3u2e1r1d1f3u1h2u4e1r1f1d2f2U9E1R1F1D7f1e1U8E1R1F1D11f2r2e1r3d1g4l2d1g2d2
  47. 380  DRAW "C3":DRAW N5$
  48. 390  RETURN
  49. 400  CLS:DRAW "S14"
  50. 410  N6$="U3H4U3E1R6F1G2L1R1E2H1L5U1 h2u4e1r1f1d2f2U9E1R1F1D7f1e1U8E1R1F1D11f3L7F3R1L1H3R7D4G2D3
  51. 420  DRAW "C3":DRAW N6$
  52. 430  RETURN
  53. 440  CLS:DRAW "S14"
  54. 450  N7$="U3H2U3 h2u4e1r1F1d3f3R1 E1U1H2L1G1E1R1     U9E1R1F1D7f1e1U8E1R1F1D11f2L7F2R1L1H2R7D4G2D3
  55. 460  DRAW "C3":DRAW N7$
  56. 470  RETURN
  57. 480  CLS:DRAW "S14"
  58. 490  N8$="U2H2U3 h3u2e1r1d1f3u1h2u4e1r1f1d2f2U1E1R1F3D1G1L1R1E1U1H3R1e1U8E1R1F1D11f3L7F2R1L1H2R7D4G3D2
  59. 500  DRAW "C3":DRAW N8$
  60. 510  RETURN
  61. 520  CLS:DRAW "S14"
  62. 530   N9$="U1H1U3H4U2E2R1D1G1D1F1U2E2R1D1G1D2F1U3E3R1D2G1D2F1E3R2F2D1L3G1D2F1R1E1U2R2D3G3L1G2"
  63. 540  DRAW "C3":DRAW N9$
  64. 550  RETURN
  65. 6050  PLAY "L64O3CDEFGAB>C"
  66. 6070  RETURN
  67. 6080  FOR X=130 TO 115 STEP -5
  68. 6090  SOUND X,2:NEXT:RETURN
  69. 7000  WR$(T)=CHR$(L(T)+47):RETURN
  70.